dim q$[128]

q$[0]=" "
q$[1]="\\' "
q$[2]="\\ '"
q$[3]="\\''"
q$[4]="\\. ":q$[5]="\\: ":q$[6]="\\.'":q$[7]="\\:'"
q$[8]="\\##":q$[9]="\\,,":q$[10]="\\~~"
q$[11]="\"":q$[12]="£":q$[13]="$":q$[14]=":":q$[15]="?"

q$[16]="(":q$[17]=")":q$[18]=">":q$[19]="<":q$[20]="=":q$[21]="+":q$[22]="-":q$[23]="*"
q$[24]="/":q$[25]=";":q$[26]=",":q$[27]=".":q$[28]="0":q$[29]="1":q$[30]="2":q$[31]="3"
q$[32]="4":q$[33]="5":q$[34]="6":q$[35]="7":q$[36]="8":q$[37]="9":q$[38]="A":q$[39]="B"
q$[40]="C":q$[41]="D":q$[42]="E":q$[43]="F":q$[44]="G":q$[45]="H":q$[46]="I":q$[47]="J"
q$[48]="K":q$[49]="L":q$[50]="M":q$[51]="N":q$[52]="O":q$[53]="P":q$[54]="Q":q$[55]="R"
q$[56]="S":q$[57]="T":q$[58]="U":q$[59]="V":q$[60]="W":q$[61]="X":q$[62]="Y":q$[63]="Z"

q$[64]="\\::":q$[65]="\\.:":q$[66]="\\:.":q$[67]="\\..":q$[68]="\\':":q$[69]="\\ :":q$[70]="\\'.":q$[71]="\\ ."
q$[72]="\\@@":q$[73]="\\;;":q$[74]="\\!!"
q$[75]="%\"":q$[76]="%£":q$[77]="%$":q$[78]="%:":q$[79]="%?"

q$[80]="%(":q$[81]="%)":q$[82]="%>":q$[83]="%<":q$[84]="%=":q$[85]="%+":q$[86]="%-":q$[87]="%*"
q$[88]="%/":q$[89]="%;":q$[90]="%,":q$[91]="%.":q$[92]="%0":q$[93]="%1":q$[94]="%2":q$[95]="%3"
q$[96]="%4":q$[97]="%5":q$[98]="%6":q$[99]="%7":q$[100]="%8":q$[101]="%9":q$[102]="%A":q$[103]="%B"
q$[104]="%C":q$[105]="%D":q$[106]="%E":q$[107]="%F":q$[108]="%G":q$[109]="%H":q$[110]="%I":q$[111]="%J"
q$[112]="%K":q$[113]="%L":q$[114]="%M":q$[115]="%N":q$[116]="%O":q$[117]="%P":q$[118]="%Q":q$[119]="%R"
q$[120]="%"+"S":q$[121]="%T":q$[122]="%U":q$[123]="%V":q$[124]="%W":q$[125]="%X":q$[126]="%Y":q$[127]="%Z"

open "txou.txt" for output as #1

for i=0 to 127
print q$[i]
print #1, q$[i]
next

close #1
